100 POKE 53280,.:POKE53281,.:POKE646,8 :PRINTCHR$(147):V=53248 110 POKE53269,1:POKE2040,11:POKEV+21,1: 115 FORC=8TO15:POKE646,C:PRINT"[145][145][145]"; 120 PRINT" "; 125 PRINT"[145] ";: 130 PRINT" ";: 135 PRINT" ";;; :NEXT 140 FORI=1784TO2023:POKEI,98 :NEXT 150 FORS=0TO62:READQ:POKE704+S,Q:NEXT:POKEV+23,1:POKEV+29,1:POKEV+S,33 160 :FORX=90TO205STEP31:POKE53248,X:POKE53249,X/1.7:GOSUB200 165 FORE=24TO30STEP.6:POKE53265,E:POKE53265,PEEK(53265)AND239 170 NEXTE:FORP=21TO36STEP.9:POKE53270,P+24:POKEV+28,P+(P+2) 180 POKEV+37,P+2:POKEV+38,P+6:POKE53265,PEEK(53265)OR16:NEXT:NEXT 190 POKE54296,0:FORZ=1TO1000:NEXT:SYS58253 200 POKE54296,15:POKE54278,155:FORJ=1TO6STEP.9:POKE54276,J+129:NEXT 210 FORI=0TO33:POKE54273,5+ABS(16-I):POKE54276,(I/.5662):NEXT 220 RETURN 230 DATA 122,46,122,67,41,66,114,169,114,66,105,64,122,46,122 240 DATA0,0,0,0,0,0,0,0,0,0,0,0,0,60,0,0,126,0,0,219,64,0,255 250 DATA64,0,255,96,0,102,112,0,60,112,0,126,112,7,255 260 DATA240,15,255,240,14,255,224,14,255,0